(in-package #:org.springframework.stereotype)

(cl-annot:defannotation Service (class-definition-form)
    (:arity 1)
  (cl-annot.util:progn-form-replace-last
     (lambda (class-definition-form)
       (let ((symbol (cl-annot.util:definition-form-symbol class-definition-form)))
	 `(progn
	    ()
	    ,class-definition-form
	    (print (find-class ',symbol))
	    (or (gethash ',symbol *bean-registry*)
		(setf (gethash ',symbol *bean-registry*) (make-instance ',symbol))))
	 ))
     class-definition-form))